(defun lwpoly-vertexes (ename / entity)
  (setq entity (entget ename))
  (if
    (= (cdr (assoc 0 entity)) "LWPOLYLINE")
     (vl-remove-if
       'null
       (mapcar '(lambda	(x)
		  (if (= (car x) 10)
		    (cdr x)
		  )
		)
	       entity
       )
     )
  )
)
